! Future Vision v4.0d12
! *[ Name Manager ]*
!
! Written by Joshua M. Thompson
! Copyright (c) 1990-92 Frontier Technologies, Inc.

! Entity type codes:
!
! $00 = Reserved
! $01 = Site
! $02 = Network
! $03 = Router
! $04 = Gateway
! $05 = Mail Gateway
! $06 = Network application
! $10 = User
! $11 = Program User
! $12 = Group
!
! all other codes are reserved for future use.

DispatchNM
 if func>9 gosub IntNM_CheckStarted
 on func goto NM_BootInit,NM_Startup,NM_Shutdown,NM_Status,NM_Version, ->
              ]err,]err,]err,]err
]err
 err=$0001:return

NM_BootInit
 nm$(0)="4/NAMES/"
 nm$(1)=nm$(0)+"SITES"		! Site names cache
 nm$(2)=nm$(0)+"NETWORKS"	! Net names cache
 nm$(3)=nm$(0)+"ROUTERS"	! Router names cache
 nm$(4)=nm$(0)+"GATEWAYS"	! Gateway names cache
 nm$(5)=nm$(0)+"MAIL.GATES"	! Mail gateway names cache
 nm$(6)=nm$(0)+"NET.APPS"	! Net application names cache
 nm$(16)=nm$(0)+"USERS"		! User names cache
 nm$(17)=nm$(0)+"PROG.USERS"	! Program user names cache
 nm$(18)=nm$(0)+"GROUPS"	! Group names cache

 return

NM_Startup
 for &1=1 to 6
    if not filesize(nm$(&1)) gosub IntNM_CreateCache(nm$(&1))
 next
 for &1=16 to 18
    if not filesize(nm$(&2)) gosub IntNM_CreateCache(nm$(&1))
 next
 return

NM_Shutdown
 return

NM_Status
 x=1:return

NM_Version
 vers=$8100:return

NM_LocalGetName

NM_LocalSetName

NM_LocalFindByName

NM_RemoteGetName

NM_RemoteSetName

NM_RemoteFindByName

IntNM_CheckStarted
 return
